[asp]如何求出一组数中，最小的两个数？

求一组数中，最小的几个数
'##############################################3
'开始 -----利用冒泡取出最小的2个数（数组）
function sort(ary) '利用冒泡取出最小的2个数（数组）
if isarray(ary)=false then
ary=split(ary,",")
end if
ck=true
do Until ck = false
ck=false
For f = 0 to UBound(ary) -1
if clng(ary(f))>clng(ary(f+1)) then
v1=clng(ary(f))
v2=clng(ary(f+1))
ary(f)=v2
ary(f+1)=v1
ck=true
end if
next
loop
tmpary=split(""&ary(0)&","&ary(1)&"",",")
sort=tmpary
end function

dim I